function y = WriteIOData(variable,xlRange)
    y = true;
    sheet = 1;
    RteSummaryFilePath = regexprep(which(bdroot),'\w*\\\w*\\\w*\\\w*.slx','Model\\\20_RTE\\\RTE\\\IOSummary\');
    Filename = strcat(RteSummaryFilePath,'RteSumIO_');
    tim = fix(clock);
    for i = 1:length(tim)
        Filename = strcat(Filename,num2str(tim(i)));
    end
    Filename = strcat(Filename,'.xlsx');
    xlswrite(Filename,variable,sheet,xlRange);
end

